rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)

#get the max of rawdata
max(rawdata)

#get the min
min(rawdata)

#get the summary
summary(rawdata)

#plot the graph
plot(rawdata, type="b", xlab="Time in Seconds", ylab="CPU Usage", col="blue")

#Draw tha max, min and mean lines on graph
abline(h=max(rawdata), v=0, col="green")
abline(h=min(rawdata), v=0, col="red")
abline(h=mean(rawdata), v=0, col="orange")

